home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / InstallerFX.lha / InstallerFX / Examples / CyberVer Example next >
Text File  |  1997-06-24  |  7KB  |  148 lines
  1. ;********************************************************************************
  2. ;     ______        __                  __  __        
  3. ;    / __  /       / /                 / / / /       
  4. ;   / /  -'__  __ / /___ ______ _____ / / / /______ _____
  5. ;  / /     \ \/ // __  // ____// .__// / / // ____// .__/
  6. ; / /___    \  // /_/ // __/_ / /   / /_/ // __/_ / /
  7. ; \____/    / //_____//_____//_/    \____//_____//_/
  8. ;          /_/                                                          
  9. ; 
  10. ; $VER: CyberVer 1.3c (November-21-1996)
  11. ; CyberVer by Robert C. Reiswig ©1995-1996
  12. ;
  13. ; If you wish to use any part of this installer you must ask. May not be 
  14. ; integrated/placed into any other package. Changes, suggestions or problems:
  15. ; cyberver@vgr.com or rcr@netcom.com
  16. ;--------------------------------------------------------------------------------
  17. ;
  18. ;********************************************************************************
  19. (if (= @user-level 0) (set @user-level 1))
  20. (if (= frank 26) (welcome))
  21.  
  22. (onerror (CLEANUP))
  23.  
  24. ; Cleanup any temporary mess we created
  25. (procedure CLEANUP
  26.     ; Nothing to cleanup
  27.     (delete "t:Background")
  28.     (delete "t:Background.prefs")
  29. ) ; CLEANUP
  30.  
  31. (copyfiles
  32.     (source "InstallerFX/CyberGFX.gif")
  33.     (dest "t:")
  34.     (newname "Background")
  35. )
  36.  
  37. (copyfiles
  38.     (source "InstallerFX/BackgroundCyberGFX.prefs")
  39.     (dest "t:")
  40.     (newname "Background.prefs")
  41. )
  42.  
  43. (run "run InstallerFX/InstallerFX t:background")
  44.  
  45. ;********************************************************************************
  46. ; Read Needed System information
  47. ;********************************************************************************
  48. (set lan 1)
  49. (if (> (exists ("env:Language")) 0)
  50.   (if (= "deutsch" (getenv "Language")) (set lan 0) )
  51. )
  52.  
  53. (if (> (exists ("env:user")) 0) (set username (getenv "USER")) )
  54. (if (> (exists ("env:username")) 0) (set username (getenv "USERNAME")) )
  55. (if (> (exists ("env:host")) 0) (set hostname (getenv "HOST")) )
  56. (if (> (exists ("env:hostname")) 0) (set hostname (getenv "HOSTNAME")) )
  57.  
  58. (set #exitmessage1 "\nA text file, '")
  59. (set #exitmessage2 "', with all the version information for the V43DT and CyberGraphX files was written out.")
  60.  
  61. ;********************************************************************************
  62. ; Show and Save (ram:V43DT_Versions.txt) Versions of V43 DTs
  63. ;********************************************************************************
  64. (procedure getver
  65.   (set vernum1 (getversion checkfile))
  66.   (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  67.   (set verrev (cat ver1 "." rev1))
  68.   (if (= verrev "0.0") (set verrev "N/A"))
  69. )
  70.  
  71. (set master "CyberGraphX - Libs and Monitor files:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n")
  72. (set checkfile "libs:cybergraphics.library") (getver) (set master (cat master checkfile " - " verrev "\n"))
  73. (set checkfile "libs:cyberintuition.library") (getver) (set master (cat master checkfile " - " verrev "\n"))
  74. (set checkfile "libs:cyberlayers.library") (getver) (set master (cat master checkfile " - " verrev "\n\n"))
  75.  
  76. (if (exists "devs:monitors/picasso")     ( (set checkfile "devs:monitors/picasso") (getver) (set master (cat master checkfile " - " verrev "\n")) )     )
  77. (if (exists "devs:monitors/spectrum")    ( (set checkfile "devs:monitors/spectrum") (getver) (set master (cat master checkfile " - " verrev "\n")) )    )
  78. (if (exists "devs:monitors/piccolo")     ( (set checkfile "devs:monitors/piccolo") (getver) (set master (cat master checkfile " - " verrev "\n")) )     )
  79. (if (exists "devs:monitors/domino")      ( (set checkfile "devs:monitors/domino") (getver) (set master (cat master checkfile " - " verrev "\n")) )      )
  80. (if (exists "devs:monitors/retinaz3")    ( (set checkfile "devs:monitors/retinaz3") (getver) (set master (cat master checkfile " - " verrev "\n")) )    )
  81. (if (exists "devs:monitors/PiccoSD64")   ( (set checkfile "devs:monitors/PiccoSD64") (getver) (set master (cat master checkfile " - " verrev "\n")) )   )
  82. (if (exists "devs:monitors/cybervision") ( (set checkfile "devs:monitors/cybervision") (getver) (set master (cat master checkfile " - " verrev "\n")) ) )
  83. (if (exists "devs:monitors/A2410")       ( (set checkfile "devs:monitors/A2410") (getver) (set master (cat master checkfile " - " verrev "\n")) )       )
  84. (if (exists "devs:monitors/Merlin")      ( (set checkfile "devs:monitors/Merlin") (getver) (set master (cat master checkfile " - " verrev "\n")) )      )
  85.  
  86.  
  87. (set master (cat master "\nOther Libaries\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"))
  88. (if (exists "libs:cyberncg.library")
  89.  (set checkfile "libs:cyberncg.library") (getver) (set master (cat master checkfile " - " verrev "\n"))
  90. )
  91. (set checkfile "libs:vilintuisup.library") (getver) (set master (cat master checkfile " - " verrev "\n"))
  92. (set checkfile "libs:gtlayout.library") (getver) (set master (cat master checkfile " - " verrev "\n\n"))
  93.  
  94.  
  95. (message master)
  96.  
  97.  
  98.  
  99. (set master1 "V43 24Bit Datatypes:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n")
  100. (if (exists "sys:classes/codec.class")
  101.   ( (set checkfile "sys:classes/codec.class") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  102.   ( (set checkfile "libs:codec.class") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  103. )
  104. (if (exists "sys:classes/codecs/picture.codec")
  105.   ( (set checkfile "sys:classes/codecs/picture.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  106.   ( (set checkfile "libs:codecs/picture.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  107. )
  108. (if (exists "sys:classes/codecs/jpeg.codec")
  109.   ( (set checkfile "sys:classes/codecs/jpeg.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n\n"))  )
  110.   ( (set checkfile "libs:codecs/jpeg.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n\n"))  )
  111. )
  112. (set checkfile "sys:classes/datatypes/picture.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  113. (set checkfile "sys:classes/datatypes/pcx.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  114. (set checkfile "sys:classes/datatypes/pbm.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  115. (set checkfile "sys:classes/datatypes/jfif.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  116. (set checkfile "sys:classes/datatypes/ilbm.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  117. (set checkfile "sys:classes/datatypes/gif.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n\n"))
  118.  
  119. (message master1)
  120.  
  121. (run "date > env:CyberVer.TEMP") 
  122. (set date (getenv "CyberVer.TEMP"))
  123.  
  124. (set date2 (substr date (- (strlen date) 19) ) ) 
  125. (set date3 (substr date2 0 9) ) 
  126.  
  127. (set whodate (cat username "@" hostname "\n\n"))
  128. (set filename (cat "CyberVer" date3 ".txt"))
  129.  
  130. (set #wherefile (cat "Where do you wish to write the CyberVer report? (" filename ")"))
  131.  
  132. (set wheredir  (askdir (prompt #wherefile)
  133.                (help   #wherefile)
  134.                     (default "ram:")
  135.                )  
  136. )
  137.  
  138.  
  139. (textfile (dest (tackon wheredir filename)) (include "env:CyberVer.TEMP") (append  (cat whodate master "\n\n" master1)) )
  140. (delete "env:CyberVer.TEMP")
  141.  
  142. ;********************************************************************************
  143. ; END  
  144. ;********************************************************************************
  145. (CLEANUP)
  146.  
  147. (exit (cat #exitmessage1 (tackon wheredir filename) #exitmessage2) (quiet))
  148.